home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / strip.dxr / Script_31_teug naar pageeditor.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  2.0 KB  |  61 lines
  1. on mouseEnter
  2.   put "Terug naar daar " into member "rollover"
  3. end
  4.  
  5. on mouseUp
  6.   global Book, ActivePKC, ActivePage, SelectedStrip, StripList, ActiveChoose, SelectionSpr
  7.   ActiveChoose = #empty
  8.   sprite(SelectionSpr).visible = 0
  9.   updateStage()
  10.   SelectedStrip = #empty
  11.   SaveTextToInput()
  12.   tMem = 100 + (18 * (ActivePage - 1)) + (3 * (integer(char the number of chars in string(getAt(ActivePKC, 2)) of string(getAt(ActivePKC, 2))) - 1)) + integer(char the number of chars in string(getAt(ActivePKC, 3)) of string(getAt(ActivePKC, 3)))
  13.   setAt(getProp(getProp(Book, getAt(ActivePKC, 1)), getAt(ActivePKC, 2)), getAt(ActivePKC, 3), duplicate(StripList))
  14.   case sprite(83).memberNum of
  15.     84:
  16.       StageToMember(74, 43, 567, 278, integer(tMem))
  17.     85:
  18.       StageToMember(197, 43, 441, 278, tMem)
  19.     86:
  20.       StageToMember(239, 43, 399, 278, tMem)
  21.     87:
  22.       StageToMember(74, 73, 567, 248, tMem)
  23.     88:
  24.       StageToMember(197, 73, 441, 248, tMem)
  25.     89:
  26.       StageToMember(239, 73, 399, 248, tMem)
  27.     93:
  28.       StageToMember(74, 103, 567, 218, tMem)
  29.     94:
  30.       StageToMember(197, 103, 441, 218, tMem)
  31.     95:
  32.       StageToMember(239, 103, 399, 218, tMem)
  33.   end case
  34.   StripList = []
  35.   updateStage()
  36.   go(3)
  37.   initPage()
  38.   initPageMaker()
  39. end
  40.  
  41. on mouseLeave
  42.   put EMPTY into member "rollover"
  43. end
  44.  
  45. on SaveTextToInput
  46.   global StripList
  47.   repeat with n = 1 to count(StripList)
  48.     if (getAt(StripList, n) <> #Free) and (char 1 to 6 of string(getAt(StripList, n)) <> "color_") then
  49.       if getAt(StripList, n).type = #Balloon then
  50.         who2 = getAt(StripList, n).Plek
  51.         spr2 = who2 + 10
  52.         getAt(StripList, who2).Input = []
  53.         repeat with TLine = 1 to the number of lines in the text of member the Mem of getAt(StripList, who2) of castLib 3
  54.           add(getAt(StripList, who2).Input, line TLine of the text of member the Mem of getAt(StripList, who2) of castLib 3)
  55.         end repeat
  56.         member(getAt(StripList, who2).Mem, 3).editable = 0
  57.       end if
  58.     end if
  59.   end repeat
  60. end
  61.